home *** CD-ROM | disk | FTP | other *** search
/ The Epic Collection 3 / Epic Collection 3, The (1997)(Epic Marketing)[!].iso / internet / ftp / amiftp / install_amiftp < prev    next >
Text File  |  1996-09-08  |  21KB  |  524 lines

  1. ;******************************************************************************
  2. ;         ____           __   ______ ______ ______
  3. ;        / __ \         /_/  / ____//_  __// __  /
  4. ;       / /_/ /_   _   __   / /_     / /  / /_/ /
  5. ;      / __  // \_/ \ / /  / __/    / /  / ____/
  6. ;     / / / // /__/ // /_ / /      / /  / /
  7. ;    /_/ /_//_/  /_//___//_/      /_/  /_/
  8. ;
  9. ; $VER: 1.264d (March-08-1996)
  10. ; Changes, suggestions or problems: rcr@netcom.com
  11. ; AmiFTP Installer ©1995,1996 by Robert C. Reiswig  
  12. ;******************************************************************************
  13.  
  14. (set install-CA 1) ; 0 = No, 1 = Yes
  15. ;*** System Stuff ***
  16. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  17. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  18. (set osver (/ (getversion "LIBS:version.library") 65536))
  19. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  20. (set fastmem (- totmem graphmem))
  21.  
  22. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  23. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  24. ( if (= osver 41) ( (set workbench "4.0")) )))))
  25.  
  26. (set vernum1 (getversion "AmiFTP"))
  27. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  28. (set amiftpver (cat ver1 "." rev1))
  29. (set keeper 1) (set prefsfound 0)
  30.  
  31. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  32. (set lan 2)
  33.  
  34. (if (= "dansk"      lanfound) (set lan 0)) (if (= "deutsch"  lanfound) (set lan 1))
  35. (if (= "english"    lanfound) (set lan 2)) (if (= "italiano" lanfound) (set lan 3))
  36. (if (= "nederlands" lanfound) (set lan 4)) (if (= "norsk"    lanfound) (set lan 5))
  37. (if (= "suomi"      lanfound) (set lan 6)) (if (= "svenska"  lanfound) (set lan 7))
  38. (if (= "español"    lanfound) (set lan 8)) (if (= "íslenska" lanfound) (set lan 9))
  39. (set #Dansk      "Dansk")      (set #Deutsch    "Deutsch")
  40. (set #English    "English")    (set #Italiano   "Italiano")
  41. (set #Nederlands "Nederlands") (set #Norsk      "Norsk")
  42. (set #Suomi      "Suomi")      (set #Svenska    "Svenska")
  43. (set #Español    "Español")    (set #íslenska   "íslenska") 
  44.  
  45. ;********************************************************************
  46. ; English Strings
  47. ;********************************************************************
  48. (set #about (cat "\n\nWelcome to\n\nAmiFTP " amiftpver "\n\n©1995, 1996 by\n\nMagnus Lilja\n\nlilja@lysator.liu.se") )
  49. (set #whattcp "\nPlease select the Networking package you run.\n")
  50. (set #whereamiftp "Where do you wish to install AmiFTP. No directory will be created! If there is a copy of AmiFTP there the installer will back it up.")
  51. (set #backuptoXXX "Back-UP to file named 'AmiFTP")
  52. (set #copyover "Copy Over Old Version")
  53. (set #amiftpfound "\nThe Installer has found a copy of AmiFTP already installed. What do you want to do?\n")
  54. (set #newicon "\nDo you wish to copy over The AmiFTP Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  55. (set #nonewicon  "No  - ToolTypes already set.")
  56. (set #yesnewicon "Yes - Copy over Icon.")
  57. (set #whatcat "\nSelect the AmiFTP Language catalog you wish to install..\n")
  58. (set #wherecat "\nWhere do you wish to install the AmiFTP Language Catalog? Default is Locale:Catalogs/")
  59. (set #catnofind "Can not find this catalog in this AmiFTP archive. You may need to get a updated or newer archive from the support site.")
  60. (set #otherdir "Other Directory")
  61. (set #instdefprefs "Yes - Install Example Prefs File")
  62. (set #instdefprefsn "No  - Don't Install Example Prefs File")
  63. (set #instprefsfile "The installer did not find the AmiFTP.Prefs file in:\n")
  64. (set #wouldprefs "\nWould you like to install an Example Prefs file?")
  65. (set #putprefs "\nWhere would you like to install the AmiFTP.prefs example file?\n")
  66. (set #whatdocs "\nWhat AmiFTP documentation would you like to install?\n")
  67. (set #wheredocs "Where would you like the AmiFTP documentation you selected to be installed?")
  68.  
  69. (set #byebye (cat "\nAmiFTP Install Complete!\n\nIf you wish to make your own Language Catalog "
  70.               "a sample 'NewCatalog.ct' can be found in the 'Catalog' directory in the archive.\n\n"
  71. ))
  72. (set #classact "\n\n\nThe following is the default Install/Update Installer\n\nProcedure for placing ClassAct on your System.")
  73. ;********************************************************************
  74. ; Hello
  75. ;********************************************************************
  76. (message #about)
  77. (welcome) 
  78.  
  79. ;********************************************************************
  80. ; What Networking Package
  81. ;********************************************************************
  82. (set guesspackage 3) 
  83.  
  84. (if (<> (getassign "Inet") "")
  85.  (
  86.    (set guesspackage 1)
  87.    (if (exists "Inet:libs/inet.library")
  88.      (if (> (/ (getversion "Inet:libs/inet.library") 65536) 6)  (set guesspackage 2) )
  89.    )
  90.  )
  91. )
  92.  
  93. (if (<> (getassign "AmiTCP") "") (set guesspackage 0))
  94.  
  95. (if (= guesspackage 0)  (set TCP 0)   (set TCP 1)  )
  96.  
  97.  
  98. (if (= TCP 0) (set Package "AmiTCP:") ) (if (= TCP 1) (set Package "Inet:") )
  99. (if (= TCP 2) (set Package "Inet:") )   (if (= TCP 3) (set Package "Inet:") )
  100.  
  101. ;********************************************************************
  102. ; Ask where to put AmiFTP 
  103. ;********************************************************************
  104. (set amiftpdir (askdir (prompt #whereamiftp)
  105.                (help   #whereamiftp)
  106.                     (default Package)
  107.                 )  
  108. )
  109.  
  110.  
  111. (set where amiftpdir)
  112. (set @default-dest where)
  113.  
  114. ;********************************************************************
  115. ; Check for old & backup
  116. ;********************************************************************
  117. (if (exists (tackon where "AmiFTP")) 
  118.   (
  119.       (set vernum1 (getversion (tackon where "AmiFTP") ))
  120.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  121.       (set amiftpver_old (cat ver1 "." rev1))
  122.  
  123.       (set keeper  (askchoice (choices  (cat #backuptoXXX amiftpver_old "'")  #copyover)
  124.                      (prompt #amiftpfound)
  125.                  (help   #amiftpfound)
  126.                      (default 0)
  127.                )
  128.       )    
  129.  
  130.  
  131.       (if (= keeper 0)
  132.          (copyfiles (source (tackon where "AmiFTP"))
  133.                      (dest where) 
  134.                      (infos)
  135.                      (newname (cat "AmiFTP" amiftpver_old))
  136.          )
  137.       )          
  138.  
  139.     
  140.   )
  141. )
  142.  
  143. ;********************************************************************
  144. ; Copy over correct AmiFTP and Icon if wanted
  145. ;********************************************************************
  146.    (copyfiles (source "AmiFTP")
  147.               (dest amiftpdir) 
  148.               (if (= keeper 1) (infos) )
  149.               (optional "askuser" "force" "nofail")
  150.    )
  151.  
  152.  
  153.  
  154. (if (= keeper 0) 
  155.   (
  156.    (set newicon (askchoice (choices #nonewicon #yesnewicon)
  157.                            (prompt #newicon)
  158.                        (help   #newicon)
  159.                            (default 0)
  160.             )
  161.    )
  162.    
  163.    (if (= newicon 1) (copyfiles (source "AmiFTP.info") (dest amiftpdir) (optional "nofail") ))
  164.  
  165.  
  166.   )
  167.  
  168. )
  169.  
  170. ;********************************************************************
  171. ; Select and copy over Catalog
  172. ;********************************************************************
  173. (procedure catthere
  174.    (set foundcat 0)
  175.    (if (> (exists (cat "Catalogs/" #testcat "/AmiFTP.catalog")) 0)   
  176.      (set foundcat 1)
  177.    )
  178.  
  179. (set #cna " (N/A)")
  180.  
  181. (set #testcat "Dansk")      (catthere) (if (= foundcat 0) (set #Dansk      (cat #Dansk     #cna)) )     
  182. (set #testcat "Deutsch")    (catthere) (if (= foundcat 0) (set #Deutsch    (cat #Deutsch   #cna)) )  
  183. (set #testcat "Italiano")   (catthere) (if (= foundcat 0) (set #Italiano   (cat #Italiano  #cna)) ) 
  184. (set #testcat "Nederlands") (catthere) (if (= foundcat 0) (set #Nederlands (cat #Nederlands#cna)) )
  185. (set #testcat "Norsk")      (catthere) (if (= foundcat 0) (set #Norsk      (cat #Norsk     #cna)) )   
  186. (set #testcat "Suomi")      (catthere) (if (= foundcat 0) (set #Suomi      (cat #Suomi     #cna)) ) 
  187. (set #testcat "Svenska")    (catthere) (if (= foundcat 0) (set #Svenska    (cat #Svenska   #cna)) ) 
  188. (set #testcat "Español")    (catthere) (if (= foundcat 0) (set #Español    (cat #Español   #cna)) ) 
  189. (set #testcat "íslenska")   (catthere) (if (= foundcat 0) (set #íslenska   (cat #íslenska  #cna)) ) 
  190.  
  191. (set catalog (askchoice (choices #Dansk #Deutsch #English #Italiano #Nederlands #Norsk #Suomi #Svenska #Español #íslenska)
  192.                            (prompt #whatcat)
  193.                        (help   #whatcat)
  194.                            (default lan)
  195.              )
  196. )
  197.  
  198. (set lan1 catalog)
  199. (if (= lan1 0) (set #lcat "Dansk"))      (if (= lan1 1) (set #lcat "Deutsch"))
  200. (if (= lan1 2) (set #lcat "English"))    (if (= lan1 3) (set #lcat "Italiano"))
  201. (if (= lan1 4) (set #lcat "Nederlands")) (if (= lan1 5) (set #lcat "Norsk"))
  202. (if (= lan1 6) (set #lcat "Suomi"))      (if (= lan1 7) (set #lcat "Svenska")) 
  203. (if (= lan1 8) (set #lcat "Español"))    (if (= lan1 9) (set #lcat "íslenska"))
  204.  
  205. (if (<> catalog 2)
  206.  (
  207.   (if (> (exists (cat "Catalogs/" #lcat "/AmiFTP.catalog")) 0)
  208.     (
  209.       (set wherecat  (askchoice (choices (cat "Locale:Catalogs/" #lcat) (tackon where (cat "Catalogs/" #lcat)) )
  210.                                 (prompt (cat #wherecat #lcat "\n"))
  211.                             (help   #wherecat)
  212.                              (default 0)
  213.                      )   
  214.       )
  215.  
  216.       (if (= wherecat 0)
  217.         (
  218.          (if (< (exists "Locale:") 2) ( (makedir "sys:Locale") (makeassign "Locale" "sys:Locale") ) )
  219.          (if (< (exists "Locale:Catalogs") 2) (makedir "sys:Locale/Catalogs") )
  220.          (if (< (exists (cat "Locale:Catalogs/" #lcat)) 2) (makedir (cat "sys:Locale/Catalogs/" #lcat)) )
  221.          (copyfiles (source (cat "Catalogs/" #lcat "/AmiFTP.catalog")) (dest (cat "sys:Locale/Catalogs/" #lcat)) )
  222.         )
  223.   
  224.         (
  225.          (if (< (exists (tackon where "Catalogs")) 2) (makedir (tackon where "Catalogs")) )
  226.          (if (< (exists (tackon where (cat "Catalogs/" #lcat)) ) 2) (makedir (tackon where (cat "Catalogs/" #lcat)) ) )
  227.          (copyfiles (source (cat "Catalogs/" #lcat "/AmiFTP.catalog")) (dest (tackon where (cat "Catalogs/" #lcat)) ) (optional "nofail") )
  228.         )
  229.       )
  230.     )
  231.  
  232.     (message (cat "\nCatalog/" #lcat "/AmiFTP.catalog\n\n" #catnofind))
  233.   )
  234.  
  235.  
  236.  )
  237. )
  238.  
  239. ;********************************************************************
  240. ; See if a Config file is needed
  241. ;********************************************************************
  242. (if (> (exists (tackon where "AmiFTP.prefs")) 0) (set prefsfound 1) )
  243. (if (> (exists ("env:HOME")) 0)
  244.   (set home (getenv "HOME")) 
  245.   (set home " ")
  246. )
  247.  
  248. (set ahome (getassign "HOME")) 
  249.  
  250. (if (<> home " ") (if (> (exists (tackon home "AmiFTP.prefs")) 0)  (set prefsfound 1) ) )
  251. (if (<> ahome "") (if (> (exists (tackon ahome "AmiFTP.prefs")) 0)  (set prefsfound 1) ) )
  252. (if (> (exists "ENV:AmiFTP.prefs") 0) (set prefsfound 1) )
  253.  
  254. (set #prefscurr where)  (set #prefshome home) 
  255. (set #prefsuser ahome)  (set #prefsenv "ENV:")
  256.  
  257. (if (= prefsfound 0)
  258.  (
  259.    (set defprefs (askchoice (choices  #instdefprefs #instdefprefsn )
  260.                             (prompt (cat #instprefsfile  #prefscurr "\n" #prefshome "\n" #prefsuser "\n" #prefsenv "\n" #wouldprefs))
  261.                         (help   (cat #instprefsfile  #prefscurr "\n" #prefshome "\n" #prefsuser "\n" #prefsenv "\n" #wouldprefs))
  262.                             (default 0)
  263.                  )
  264.    )
  265.  
  266.  
  267.    (if (= defprefs 0)
  268.     (
  269.      (set putprefs (askchoice (choices  "ENV: & ENVARC:" where home ahome)
  270.                              (prompt #putprefs)
  271.                          (help   #putprefs)
  272.                              (default 0)
  273.                  )
  274.      )
  275.  
  276.      (if (= 0 putprefs) 
  277.         (
  278.          (copyfiles (source "AmiFTP2.prefs") (dest "ENV:") (newname "AmiFTP.prefs") )
  279.          (copyfiles (source "AmiFTP2.prefs") (dest "ENVARC:") (newname "AmiFTP.prefs") )
  280.         )  
  281.      )
  282.  
  283.      (if (= 1 putprefs) (copyfiles (source "AmiFTP2.prefs") (dest where) (newname "AmiFTP.prefs") ) )
  284.      (if (= 2 putprefs) (copyfiles (source "AmiFTP2.prefs") (dest home) (newname "AmiFTP.prefs") ) )
  285.      (if (= 3 putprefs) (copyfiles (source "AmiFTP2.prefs") (dest ahome) (newname "AmiFTP.prefs") ) )
  286.  
  287.     )
  288.    )
  289.  
  290.  )
  291. )
  292.  
  293. ;********************************************************************
  294. ; Ask and and copy docs if wanted!
  295. ;********************************************************************
  296. (set docs (askoptions (choices "AmiFTP.guide" "ReadMe" "History")
  297.               (prompt #whatdocs)
  298.                       (help #whatdocs)
  299.                   (default 7)
  300.       )
  301. )
  302.  
  303. (if (<> docs 0)
  304.  (
  305.    (set docsdir (askdir (prompt #wheredocs)
  306.                (help   #wheredocs)
  307.                     (default amiftpdir)
  308.                 )  
  309.    )
  310.  
  311.    (if (IN docs 0) (copyfiles (source "AmiFTP.guide") (dest docsdir) (infos) (optional "nofail") ) )
  312.    (if (IN docs 1) (copyfiles (source "ReadMe") (dest docsdir) (infos) (optional "nofail") ) )
  313.    (if (IN docs 2) (copyfiles (source "HISTORY") (dest docsdir) (infos) (optional "nofail") ) )
  314.  
  315.  )
  316. )
  317.  
  318.  
  319.  
  320. ;********************************************************************
  321. ; ClassAct Install/Update Default Procedure by:
  322. ; Osma Ahvenlampi - Osma.Ahvenlampi@hut.fi
  323. ;********************************************************************
  324. ; I have disabled the (complete) settings
  325. (working #classact)
  326. ; ---------------------------------------------------------------------------
  327.  
  328. ; ************* PLEASE COPY THIS PROCEDURE ALONG WITH THE STRINGS IT USES 
  329. ; ************* TO THE INSTALLER SCRIPT OF YOUR CLASSACT APPLICATION.
  330. ; ************* IT WILL TAKE CARE OF INSTALLING THE CLASSACT CLASSES YOU
  331. ; ************* PROVIDED WITH YOUR APPLICATION TO THE USER'S SYSTEM.
  332.  
  333. ; ClassAct installation procedure V 1.4 (23.12.95) by Osma Ahvenlampi
  334.  
  335. ; percentage of the size of included ClassAct classes versus the whole
  336. ; distribution (ie. total "complete" percentage after ClassAct is installed)
  337. (set classact-complete 50)
  338.  
  339. ; ClassAct installer scripts
  340. (set #classdest-prompt "Please select the directory where you want the ClassAct classes installed.\n(See help for details)")
  341. (set #classdest-help (cat "ClassAct is a GUI toolkit consisting of shared BOOPSI classes.\n\nThis player requires some of the ClassAct classes installed on your system. "
  342.     (if v39 (cat "OS 3.0 has a standard directory for BOOPSI classes, the SYS:Classes directory. It is recommended that you install ClassAct there.")
  343.             (cat "OS 2.0 does not have a standard place for disk resident BOOPSI classes. On OS 3.0 these classes are stored in the SYS:Classes directory. It is recommended that you create this directory and install ClassAct there.\nThis directory must be added in the LIBS: assign. This can be done by placing the command\nAssign >NIL: LIBS: SYS:Classes ADD\nto User-Startup. This installer will do this for you.")
  344.         )
  345.     )
  346. )
  347. (set #classes-020 "Do you want to use the OS 3.0, 020 optimised version of ClassAct?")
  348. (set #help-020 "Some ClassAct libraries have versions optimised for use on 020 or better equipped OS 3.0 or later machines. If your Amiga is such equipped, you should install these. The 68000/2.0 versions will also work, but are slightly slower.")
  349. (set #noclasses-message "The directory you selected for your ClassAct classes is not a part of the LIBS: assign.\n\nIt is necessary to add this assign so that the classes will be found properly.")
  350. (set #creating-dir "Creating directory ")
  351. (set #usbackup-prompt "User-Startup will now be backed up.")
  352. (set #usbackup-help "This installer will next make a modification in User-Startup. Before doing this the old User-Startup will be backed up to S:User-Startup.old")
  353. (set #adding-1 "Adding ")
  354. (set #adding-2 " to LIBS: assign\n")
  355. (set #adding-help "This is necessary so that the custom classes can be found.")
  356. (set #junod-button "It seems you have a late Commodore 'V42' button.gadget installed on your system.\n\nClassAct's button.gadget is far more capable than this gadget, and we recommend that you replace it. The ClassAct button.gadget is backwards compatible to the Commodore gadget. Do you wish to back up the Commodore gadget and replace it with the ClassAct version?")
  357. (set #junod-backed "The Commodore 'V42' button.gadget has been backed up with the name button.gadget.v42.\n\nThe ClassAct button.gadget will be installed in its place.")
  358. (set #junod-kept "The Commodore 'V42' button.gadget was not replaced with the more capable ClassAct version.\n\nPrograms depending on the availability of ClassAct-only features will be likely to work wrong.")
  359.  
  360. (procedure install-classact
  361. ; call this procedure to copy the classes included in the Classes directory
  362. ; in your distribution dir.
  363.     (if (exists "Classes") ; The archive contains a ClassAct library update.
  364.     (
  365.         (set comp-dest  (/ (* classact-complete 2) 10))
  366.         (set comp-libs  (/ (* classact-complete 3) 10))
  367.         (set comp-dirs  (/ (* classact-complete 4) 10))
  368.         (set comp-junod (/ (* classact-complete 5) 10))
  369.         (set comp-020   (/ (* classact-complete 6) 10))
  370.         (set comp-gad   (/ (* classact-complete 8) 10))
  371.         (set comp-im    (/ (* classact-complete 9) 10))
  372.     
  373.         ; has the user installed ClassAct in CLASSACT: ?
  374.         (set @classact-dest (getassign "CLASSACT" "A"))
  375.         (if (= @classact-dest "") (set @classact-dest "SYS:Classes"))
  376.         
  377.         ; is ClassAct already in SYS:Classes ?
  378.         (if (or (not (exists (tackon @classact-dest "Gadgets/layout.gadget") (noreq)))
  379.                 (= @user-level 2))
  380.             ; no, ask where it should be placed
  381.             (set @classact-dest
  382.                 (askdir
  383.                     (prompt #classdest-prompt)
  384.                     (help #classdest-help)
  385.                     (default @classact-dest)
  386.                     (newpath)
  387.                 )
  388.             )
  389.         )
  390.         
  391.         ;(complete comp-dest)
  392.         
  393.         (if (<> (run (cat "C/CheckAssign LIBS: " @classact-dest)) 0)
  394.             (
  395.                 (message #noclasses-message)
  396.                 (if (not (exists @classact-dest))
  397.                     (makedir @classact-dest (prompt (cat #creating-dir @classact-dest)))
  398.                 )
  399.                 (set @addassign (cat "Assign >NIL: LIBS: " @classact-dest " ADD\n"))
  400.                 (startup "CLASSACT"
  401.                     (command @addassign)
  402.                     (prompt (cat #adding-1 @classact-dest #adding-2))
  403.                     (help #adding-help)
  404.                 )
  405.                 (run (@addassign))
  406.             )
  407.         )
  408.         
  409.         ;(complete comp-libs)
  410.         
  411.         (set @classact-gadgets (tackon @classact-dest "Gadgets"))
  412.         (set @classact-images (tackon @classact-dest "Images"))
  413.         
  414.         (if (not (exists @classact-gadgets (noreq)))
  415.             (makedir @classact-images
  416.                 (prompt (cat #creating-dir @classact-gadgets))
  417.             )
  418.         )
  419.         
  420.         (if (not (exists @classact-images (noreq)))
  421.             (makedir @classact-images
  422.                 (prompt (cat #creating-dir @classact-images))
  423.             )
  424.         )
  425.         
  426.         ;(complete comp-dirs)
  427.         
  428.         (if (exists "SYS:Classes/Gadgets/button.gadget")
  429.             (if (< 40 (/ (getversion "SYS:Classes/Gadgets/button.gadget") 65536))
  430.                 (if (askbool (prompt #junod-button) (help @askbool-help) (default 1))
  431.                     (
  432.                         (rename "SYS:Classes/Gadgets/button.gadget" "SYS:Classes/Gadgets/button.gadget.v42")
  433.                         (message #junod-backed)
  434.                     )
  435.                     (message #junod-kept)
  436.                 )
  437.             )
  438.         )
  439.         
  440.         ;(complete comp-junod)
  441.         
  442.         (if (exists "Classes/Gadgets/layout.gadget.020")
  443.             (set classes-020 (askbool (prompt #classes-020) (help #help-020) (default (and cpu020 v39))))
  444.             (set classes-020 0)
  445.         )
  446.  
  447.         ;(complete comp-020)
  448.         
  449.         (foreach "Classes/Gadgets" "#?.gadget"
  450.             (
  451.                 (set thislib (tackon "Classes/Gadgets" @each-name))
  452.                 (if (and classes-020 (exists (cat thislib ".020")))
  453.                     (set thislib (cat thislib ".020"))
  454.                 )
  455.                 (copylib (source thislib)
  456.                     (dest @classact-gadgets)
  457.                     (newname @each-name)
  458.                     (prompt (cat #installing @each-name))
  459.                     (help #classdest-help)
  460.                     (optional "force" "askuser")
  461.                 )
  462.             )
  463.         )
  464.         
  465.         ;(complete comp-gad)
  466.         
  467.         (foreach "Classes/Images" "#?.image"
  468.             (
  469.                 (set thislib (tackon "Classes/Images" @each-name))
  470.                 (if (and classes-020 (exists (cat thislib ".020")))
  471.                     (set thislib (cat thislib ".020"))
  472.                 )
  473.                 (copylib (source thislib)
  474.                     (dest @classact-images)
  475.                     (newname @each-name)
  476.                     (prompt (cat #installing @each-name))
  477.                     (help #classdest-help)
  478.                     (optional "force" "askuser")
  479.                 )
  480.             )
  481.         )
  482.         
  483.         ;(complete comp-im)
  484.  
  485.         (foreach "Classes" "#?.class"
  486.             (
  487.                 (set thislib (tackon "Classes" @each-name))
  488.                 (if (and classes-020 (exists (cat thislib ".020")))
  489.                     (set thislib (cat thislib ".020"))
  490.                 )
  491.                 (copylib (source thislib)
  492.                     (dest @classact-dest)
  493.                     (newname @each-name)
  494.                     (prompt (cat #installing @each-name))
  495.                     (help #classdest-help)
  496.                     (optional "force" "askuser")
  497.                 )
  498.             )
  499.         )
  500.  
  501.         ;(complete classact-complete)
  502.     )
  503.     )
  504. )
  505.  
  506. ; ************** END OF CLASSACT INSTALL PROCEDURE. COPY THE BLOCK ABOVE
  507. ; ************** TO YOUR CLASSACT APPLICATION INSTALLER.
  508.  
  509.  
  510. ; ---------------------------------------------------------------------------
  511.  
  512.  
  513.  
  514. ;Call ClassAct Procedure _IF_ set todo so!
  515. (if (= install-CA 1)
  516.    (install-classact)
  517. )
  518.  
  519. ;********************************************************************
  520. ; End Bye 
  521. ;********************************************************************
  522. (exit #byebye)
  523.